This app is meant to be used to find the best price/quality wines in the market. You can refine your search based on scores and prices, and inspect the data in a chart split by country, and a complete table.

Adjust the parameters

• Min points (scoring) will filter the results keeping only the scores greater that the specified param.
• Price scope will let you filter the results keeping only which price is between the indicated draggable indicator.

We first load wines from original source (VIVINO) and filter out some:

wine_ratings <- readr::read_csv("https://raw.githubusercontent.com/rfordatascience/tidytuesday/master/data/2019/2019-05-28/winemag-data-130k-v2.csv")

Parsed with column specification:
cols(
  X1 = col_double(),
  country = col_character(),
  description = col_character(),
  designation = col_character(),
  points = col_double(),
  price = col_double(),
  province = col_character(),
  region_1 = col_character(),
  region_2 = col_character(),
  taster_name = col_character(),
  taster_twitter_handle = col_character(),
  title = col_character(),
  variety = col_character(),
  winery = col_character()
)

## Selecting by avg_price

Thanks to all co-students that will review this work.